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NOVAS POSSIBILIDADES 



DO PROGRAMA CAD 

OPC OES SOFISTICADAS 
CORRIGIR E COPIAR 



CORES NO SPECTRUM 




Adicione rotinas especiais ao seu 
programa CAD (Desenho Asststido por 
Coniputadorl e veja como tirar o melhor 
proveho da sofisto^ao que elas 
proporcionam ^ listagem original. 



Com o programa CAD (Desenho As- 

sistido por Computador), apresentado 
na pagtna 4(4, vimos -colocar os recur- 
SOS graficos do computador sob controle 
direio do teclado, o que nos permitiu fa- 
zer alguns desenhos hem sofislicados. Se 
quisermos. porem, explorar [odo o po- 
tential do programa — especialmente a 
possibilidade de colorir — deveremos 
examinar vdrias outras furvoes. O me- 



nu jd Ros deu uma ideia das diferentes 
opcoes. mas ainda nao livemos acesso 
a elas, 

Carregue o programa anterior e adi- 
cione as linhas fornecidas neste artigo. 
Cada retina e seguida de noias e suges- 
loes de como tirar o melhor proveiio das 
novas possibilidades do seu programa. 



4 000 REM re t,an9Li1 o e caixa 

4010 LET calXd=0: GOTO 403O 

40Z0 LET cslxa-l 

4030 FOR ri'l TO 50: NEXT n 

4040 GOSUE 8000 

4050 IF TNKEYS=CHHS 13 THEN RA 

ND USP 6,^380; GOTO 1000 

4060 IF INKEYSOCHHS ,32 THEN G 

oro 40'in 

4070 FOR n-1 TO 50: NEXT n 



408!) LET xjt=Oi LET vyO : LET hx 

=Ji: LET hy=y 

409l> GOSUB flOOO: FOR n-] TO 2: 

PLOT hut.hy 

4JO0 DRAW OVER l;0,vy: DRAW O 

VEH lixx.O: DHAU OUCH liO.-yy; 

DEAW OyKfl l;-xx.Or NEXT n 
4 110 IF INKFVSOCHHS 32 THEN C. 
OTO 4090 

4120 PLOT hx.hy: DHAU O.yy: DEIA 
M XX. 0: DRAW . -yy ■ DHAU -xx.O 
41.10 tr caixa = THEN GOTO 4030 
4135 IF xx=0 THEN GOTO 404O 
4 140 FOR n=hx TO hx*xx STEP SGN 

XX 

41%0 PLOT n.hy: DRAW . yy : NEXT 

n 
4 160 GOTO 4040 
SOOO REM cjrriil n 
5010 FOR n=l TO liO: NEXT n 
MJZO GOSUB Bono 
5010 IF INKEYS-CHRS 1.3 THEN BA 



471 
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All 



HD USH hS380; GOTO 100 

=ia^Q IF INKEYSOCHES .1Z THEN 

DTO SO 20 

15050 FOR n= t TO .'sO : WEXT n 

liOfiO lF.r xx-0 : LET YY=0: [.ET hx 

=x: ! ET hy=y 

^070 GOHOB 8000: CIBCI-E OVER 1 

;hx,hy.AaS xx : CTEtCLE OVER Jih 

x.hy.ABS XX 

SUBO ir INKEYSOCHRS .12 THEN G 

DTO 50 7 

S090 CTRCI c hX.hy.ABS XX: GOTO 

■jono 

SSOO REM apdgar 

SSIO GOSUB 8000 

S!)?!) IF POINT lx,y) = l THEN PLC 

1 OVEH l:x,y 

■jSIO if INKEYS = CHBS 13 THEN BA 

ND USH 6'i3H0; GOTO 100 

■5^.1(1 GOTO S-ilO 

6000 REM copidr 

50.10 COPY : GOTO 1000 

7000 INPUT "INTRODUZA NOME "* ; 

LINE nS: IE LEN n$>10 THEN GO 
TO 7000 

7010 LOAD nStrODF. 50000: BAND US 
R 6536B: GOTO 1000 
7SO0 TNPUT "INTRODUZA NOME "; 

LINE nS- tF nS'"" OB L.EN n3>10 

THEN GOTO 7500 
7510 SAVE nSSCH-EENS : GOTO 1000 



Selecione a optao RETANGULO e- 
mova cursor ate onde deseja colocar 
um canto da figura que preEende dese- 
nhar; em seguida, presstonc <SPA- 
CE> . Desloque o cuisor para o canto 
diagonalmcnle oposlo. Enquanto execu- 
la o movLmento, um retdngulo ficara 
piscando, para Ihe dar a iddia exaia do 
que est^ desenhando. Voce pode, assim, 
escolher o lamanho e a forma ideal, sim- 
plesmenie passeando com o cursor, 
Quando ludo estiver do seu agrado, 
pressione <SPACE>. para fixar ode- 
senho. 

A op^ao CAIXA funciona da mesma 
maneira que RETANGULO, s6 que a 
area interna e preenchida. 

CIRCULO e a outra forma que voce 
pode desenhar. Coloque o cursor no lo- 
cal que serd o centre do circulo e pres- 
sione <SPACE>. Em seguida, mova- 
o para qualquer ponto da periferia e 
pressione novamenle a lecla de espaco. 

AopijaoCOPIAR envia para sua im- 
pressora a imagem da tela. Depois de se- 
lecion^-la, responda as perguntas apre- 
sentadas. Terminado o trabalho, o pro- 
grama relornari ao menu. 

Para fazer corrnjoes e mudancas. use 
as opgoes APAGAR ou OOPS. Peque- 
nos detalhes podem ser corrigidos com 
a primeira opcao. Quando lerminar, te- 
cle < ENTER > para retornar ao menu. 

Para mudan?as radicais. utilize 
OOPS, que apagari tudo o que foi fei- 
to depois de sua liltima visits ao menu. 

Os dois itens restantes s^o GRAVAR 



e CARREGAR (na fita, somente). Ao 
selecionar um dos dois, um nome serd 
solicitado. Voce pode CARREGAR sem 
especificar um nome de arquivo, sim- 
piesmente pressionando < ENTER >, 
mas, para GRAVAR, o nome e sempre 
necessirio. 

D 

4000 SCREEN l.ST;GOSUB 1500 

4010 IF EF-1 GOSUB 500:RETUBN 

4020 IF PEEK[345)<>PC THEN 4000 

4030 XS-X^YS-y 

4040 GOSUB 1500:GOSUB 500 

4060 IF EF-1 THEN RETURN 

4070 IF ABS( {XS-X)'«-(XS-Y)) >2300 

THEN 4040 

4080 LINE[X. Y>- (XS, YS) .PSET.B 

4090 IF PEEK(345)<>PC THEN 4040 

4100 PMODE MD.5:GET(X,Y)-(XS.yS 

J .CP.G: PMODE MD , i 

4110 XS-XS-X:yS-lfS-Y 

4120 GOSUB 1500:GOSUB 500 

4130 IF EF-1 THEN HETUBN 

4140 IF(X+XS)CO OB (X+J(S)>255 

R{Y+yS)<0 OR (Y+YS)>191 THEN 41 

20 

4150 LINE(X,Y>- (X+XS.Y+YS) .PSET 

.B 

4160 IF PEEK(345)<>PC THEN 4120 

4170 GOSUB 500:PUT(X,Y)-(X+XS,y 

+YS) ,CP.PSET:GOSUB 510 

4180 GOTO 4120 

5000 CLS;PRINT" SELECIONE A COB 

DA BOHDA (0-8) " 
5010 AS-INKEYS:IF AS<'0" OR AS> 
"8- THEN 5010 

5020 BC-VAL(AS) :SCHEEN 1 , ST 
5030 GDSUB 150D:GOSUB 500 
5040 IF EF-1 THEN RETURN 
5050 IF PEEK(345)<>PC THEN 5030 
5060 PAINT(X.Y) .CL.BC:GOSUB 510 
;GOTO 5030 

6000 CLSiPRlNT" SALVAR OU CARBE 
GAB DO GHAVADOB IS/C) ?" 
6010 AS-INKEYStlF ASO'S" AND A 
SO-C" THEN 6010 
6020 IF AS-"S" THEN 6100 
6O30 PRINT" CONFIRMA 8UE QUEB C 
ARHEGAH OUTHO DESENHO (S/N 
)?" 

6040 AS=INKEYS:IF ABO'N" AND A 
S<>"S" THEN 6040 
6050 IF A3="N" THEN RETURN 
5060 MOTOHOM: PRINT: PRINT " POSI 
ClONE TAPE.APERTE 'PLAY' E E 
NTAO PRESSIONE <ENTER;'" 
6070 IF lNKEYS<>CHasa3) THEN 6 
070 

6080 MOTOHOFF; PRINT: PRINT: INPUT 
"INTHODliZA O NOME DO ARQUIUO "; 
AS 

6090 SCREEN l.STiCLOADM ASiGOSU 
B 510:HETURN 

6100 PRINT :INPUT"H0ME DO ARQUIV 
"iAS 

6110 MOTOHOM:PRINT:PHINT" POSIC 
lONE TAPE.APERTE'RECORD' E EN 
TAO PRESSIONE <ENTEH>' 
6120 IF INKEYSOCHftS(13) THEN 6 
120 



6130 9^UB S0O:CSAVEM A$,I536.7 
6?9,1531^ETUnN 

A opcao RETANGULO permite que 

voce desenhe rfliangulos de varias cores, 
em qualquer lugac da tela. Selecione a 
op^ao e mova o coteor ate o ponlo da 
tela onde voce quer am canto da figu- 
ra. Pressione a barraT^ espa^o para 
identificar o ponto. Mov%^ cursor pa- 
ra o canto oposto. Da mesms maneira 
que com DESENHO e LlNlH^' ^"ce 
pode escolher cores on abandoiiata op- 
gao pressionando <ENTER>. QNian- 
do estiver saiisfeiio com o deseifli^ 
pressione novamente a barra de espag^ 

CAIXA funciona como a opgao an- 
terior, mas a figura t preenchida .com a 
cor em uso. 

CIRCULO e DISCO sao como RE- 
TANGULO e CAIXA. O primeiro pon- 
to escolhido fica na periferia da forma. 
Mova cursor, ate chegar ao ponto de- 
sejado, que e o cenlro. 

ELIPSE difere um pouco de CIRCU- 
LO. O primeiro ponlo escolhido e o cen- 
tre. Ao mover o cursor em qualquer di- 
rei;ao, vera apenas uma linKa. Mas, ao 
move-lo na horizontal e depois na ver- 
tical, por exempio, uma eiipse comeca- 
rd a crescer. Aj uste-a at6 obter o que de- 
seja e pressione a barra de espaco. 

A op^ao COPIAR permite que voce 
duplique uma imagem j^ desenhada na 
tela em outra parte dela. Para usi-la, 
posicione o cursor em um canto da ^rea 
a ser copiada e pressione a barra de es- 
paco. Ao mover o cursor em dire?ao ao 
canto oposto, vera um relSngulo que de- 
marca a regiao onde o desenho sera du- 
plicado. Determine a irea, quando es- 
tiver satisfeito com o seu lamanho e for- 
ma, pressionando novaraente a barra de 
espago. Mova essa area at^ o ponto de- 
sejado, usando as setas. Pressione a bar- 
ra de espapo para efetuar a copia. apa- 
gando o que havia naqu-ela area. Ate 
melade da tela pode ser copiada, sem 
problemas, 

A opcao PREENCHER funciona co- 
mo o comando PAINT era BASIC. Ao 
seleciond-la, voce devc informar a cor 
dos limi-tes onde o PAINT deve parar. 
Mova, entao, o cursor at^ a drea a ser 
preenchida e pressione a barra de espa- 
co. Escolha a cor pelas teclas a 8. 

Para corrigir possivess erros, selecio- 
ne a opcao ERRO, que apaga ludo a que 
foi feito desde sua ultima visita ao me- 
nu. Ppde-se, lamb^m, corrigir detalhes, 
selecionando a cor de fundo e apagando 
linhas ou pontes. Areas maiores devem 
ser corrigidas com CAIXA ou DISCO. 

A liltima opgao permite que desenhos 
sejam carregados ou gravados na fita; 
conecle o cassete e responda iis pergun- 
tas apresentadas. 
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307n HPLOT PX(1) .PY (1) TO PX(2 
).py[n TO PX[2>.PY(2J TO PX(1) 
,PY(2) TO PX(l) .PY(l) :M = 0: GO 
TO .1000 
30SO BA - SQR { [ PX ( L ) - PX(2)1 

- (PX(L! - PX [2) ) + CP¥[1) - P 
Y(Z)) " (PY(1) - PY(2) ) ) : FOR T 

= TO Z * PT STEP PI / IRQ 
3090 HPLOT PX(2) -^ RA • SIN ( 
I) .PY(2) - RA * COS [I) 
3100 NEXT 
3110 GOTO 3000 
AOQO CI ■ 

401 n GOSUB 15001 GOEIJB 100(1: I 
F AS < > CHBS (32) THEN GOTO 

4010 
4O20 POKE M.ME 

4030 CI = CI + l:PX(CT) - X : PY I 
CIl - Y: PRINT CHRS 1 ?) ; ^ HPLO 
T X,Y:M = 

4040 IF CI < > 3 THEN 4010 
4050 CE = SQR :(PX!1) - PX(2)) 

* (PX(1) - PX(2)) ^ (PV(U - P 
Y(2)) " (PY(1) - Py(2) )) :CE: = C 
E / 2 
4060 Al = SQB ( (PX[1) - PX(3I 1 

• (PX{1) - PX(3) ) + (PY(1» - P 
Y<3)) - (PY(1) - PY(3) ) 3 
407n A2 = SQR ((PX(3) - VX(2)) 

" (PX(3) - PX(2! ] + IPH?.> - P 
Y(2)) » (PY[3) - py(2) )) :AE = ( 
Al + A2( y 2 

4080 BE - SQB CAE * AE - CE ■ 
CE) 

4090 FOR I = TO 2 * PI STEP 
PI / 180 

4100 IF PX(1) < > PX(2) THEN 
4120 

4110 HPLOT PXU) ■•- BE * COS f 
IJ.PYd) + ( - J • (PY(1) > PY( 
2>)) • CE - AE • SIN (1) ; NEXT 

: GOTO 4000 
4120 HPLOT PX(i} -1- ( - 1 - (PX 
(LJ > PX(2) )) •■ CE + AE " COS 
(D.PYd) - BE " SIN (I): NEXT 

r GOTO 400 
7000 TEXT : HOME : PRINT "Grav 
ar/Carregar " 
7010 UTAB 10 

7020 INPUT "Opc^o? [G/O "iBS 
7030 IF BS < > °G" AND US < 
> "C" THEN 7O30 

7040 INPUT "Nome do deaenho? " 
;DES 

7050 INPUT "Pagma? " ; P 
7060 IF HS = "C" THEN 7030 
7070 PRINT CHHS C4 J ; "BSAUE " : D 
ES;".A":P * 8192: '.L":8192: GOT 
O 250 

7080 PRINT CHP5 (4) ; "BLOAD" iD 
ES:".A";P " B192; GOTO 250 

Usaremos agora as op^oes mais so- 
fisiicadas do nosso editor de desenho. 
RETANGULO. CIRCULO e ELIPSE 
estao a sua disposicao. 

Para a opfao RETANGULO, mova 

o cursor ate um canto do quadriCdlero 

,, que deseja trai;ar. Tecle a barra de es- 

pa^o, leve o cursor para o canto diago- 



naltnente oposto c tecle novamerle a 
barra de espafo. Sua figura estd pron- 
I a. 

CIRCULO funciona de maneira pa- 
recida, s6 que o primeiro ponto corres- 
ponde ao centro da figura a ser iraga- 
da. O segundo deiermina o lamanho de- 
la, ficando na periferta. 

Ao usar a op?ao ELlPSE. nao se es- 
qu«fa de que o maior eixo da figura de- 
ve -estar sempre na horizonial on na ver- 
ticaL Selecione ires ponlos para tracd- 
la. Os dois primeiros funcionarao como 
OS focos da elipse e o terceiro ficara na 
penferia. 

For fim, GRAVAR/CARREGAR 
permite que voce grave uma imagem em 
disquete ou que a carregue na mem6ria 
do micro. E posslvel. inclusive, carregar 
um desenho pronto de algum outro prO- 
grama ou jogo. A identifica^ao de uma 
imagem de alta resolufao no diretorio 
e Mcil; em geral. ela ocupa 34 seiores do 
disco e tem a letra B a frenle do nome 
do arquivo, Para carrega-la, simptes- 
mente coloque o disquete no drive e di- 
gite o nome correto do arquivo quando 
este for solicitado pelo programa. 



m 



4R0 CT=0 

490 GOSt!B310-(iOSI)E210:IFAS<>CHB 

S (37}THEH4'9(J 

son C1=CI+1 :PX(C1) ■X;PY(cr)-Y;B 

EEP: PSETtX.Y) .CO:M:=n 

510 IFCIO2THEN490 

520 OHOPnOTO5'>0,5qn.b3O,540,55n 

,560,560 

5^n LiNE(pxcn ,pY(ij)-(pxc2) .PY 

[2> ) .CO :M=0 :GOT04flO 

540 LINEtPXtU , PY(I) ) -(PXC2) ,PY 

(2)) ,C0 ,R:M=0 ;GOT04BO 

550 LINE CPXdl . PY( 1> 1 - CPXC2) , PY 

( 21) ,C0,8F :M=0:GUTO460 

560 HA=S5B ( CPXdJ -PXC2) 1 »CPX{1) 

-PX(2) ) + (PY(l)-PY(2) ) "CPYCD-PY 

(2) ))■ 

570 CIRCLE (PX(U ,PYd) ) ,HA,CO: 

M-0: lFOP=fiTHENGOT0480 

580 PAINT (PX(l)+l ,PY(L) ) ,CO;GG 

Tn480 

590 LlNECPXd) , PY(1) 1 -CPX(2) .PY 

(2) ) ,C:L,BFrM=n;GnTO480 
600 CI=0 

610 G{)SUa310 ■GOSUB2J0r TFASOCHB 

S(37)THEN6]0 

620 CI=CI+l-PH(CI)=X:PY(CT)-YrB 

EEP:PSET(X,Y) ,CO-M-0 

63tl IFClO.ITHENeiO 

640 CE = SOR [ (PX(1>-PX{3) )"{PX[lli 

-PX(2) ) + (PY(l)-PY{2) )»(PY[n-PY 

I?) ) ) :CE=CE/2 

650 CI =SQR ( (PXd )-PX(31 1"(PX(1) 

-PX[3) l + [PY(t)-P¥(3) }* (PYd) -Py 

(3) I ) 

660 C2 = S0B< !PX(31 -PX(2) )*(PX(3) 
-PX(2) ) +(PY(3>-PV(2) )»(Py (3)-PY 
(21 ) 3 AE^ (Cl+C2)/2 
670 HE=SQR(AE*AE-CE*CE} 




CORES NO SPECTRUM 

programa apresentado permiie 
que voce ra9a desenhos coloridos no 
Spectrum, mas 6 prectso ter cuidada 
para evitar problemas de sobreposjqao 
de cores. Se duas ou mais cores forem 
colocad3S no mesmo retSngulo de ca- 
ractere, a ultima tomario lugardasou- 
tras. Pianeje seu desenho de maneira 
que cores adjacentes sejam alinhadas 
de acordo com esses retangulos. 
Lembre-se de que em cada iinha temos 
32 retangulos que contem oito subdi- 
ulsoes na horizontal e 22 retSngulos 
com oito subdivisoes na vertical. 



fiflO F0B.) = (JTO2«PI STEP Pt/90 

690 tFPXd )<>PX[2)THEN720 ' 

700 IFPY (1)<:PY (2)THENf3 = lELSES = - 

I 

v" I PSET (PXCn+BE"COS (J) .PY (1) 

tS«CE-AE*SINC.I)) ,CO:NEXT-GOTO60 



720 IFPX{1)<PX(2)THEN.S = 1ELSES-- 

1 

730 PSET CPXC1)+S*CE+AE"C0S!J) . 

py (1) -RF«HIN(J)) ,CO:NEXT;C.OT060 

n 

Apagar permiie que voce suprima o 
desenho de determinadas dreas da tela. 
Selecione a opcao e coloque o cursor no 
canto do retangulo que corresponde k 
irea que pretcnde apagar. Pressione a 
barra de espai;o. Leve o cursor para o 
canto diagonal oposto e pressione no- 
vamente a barra de espa^o. Tudo o que 
esliver dentro do retangulo formado pc- 
los 2 pontes serd apagado . Tecle < RE- 
TURN > para trocar sua opgao. 

Relangtilo e Caixa funcionam de ma- 
neira semelhante, sendo que a primeira 
opi^ao descnha uma figura vazia, ao 
contrario da segunda. Ao selecionar 
uma delas, leve o cursor a um exiremo 
da figura e tecle a barra de espa^O. 
Desloque-o at^ a outra extremidade e re- 
piia a opera^ao. Sua figura sera dese- 
nhada instantaneamente, 

Circulo e Disco lem uma rclacao se- 
melhante a das duas op^:oes' anteriores. 
O primeiro ponto serd o centrO da figu- 
ra e o segundo determinard o lamanho 
'dela, ficando na periferia. 

Elipse requer ires pontos para gum- 
prir sua funcao. Os dois primeiros de- 
terminam os focos da elipse e o tercei- 
ro, um ponto da periferia. Essa figura 
nao e preenchida por cor. Para desenhos 
coloridos, voce devera recorrer a op^ao 
Pintar, 
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COMO EDITAR LINHAS 





DE UM PROGRAMA BASIC 

OCONTROIE DO CURSOR 

TECLASFUNDAMENTAtS 

E MOVIMENTOS MAIS COMPLEXOS 



Os micros da linha MSX possuem 
sofisticados recursos de edi^ao. Suas 
teclas de controls e seu cursor 
tornam posslvel usar o video como se 
fosse uma verdadeira "foiha de papet". 

Todos OS interpreladores da Hngua- 
gem BASIC oferecem alguns recursos 
para a edifao de programas, ou seja, 
lecnicas de entrada e alteracao das linhas 
que OS compoem. O primeiro inierpre- 
lador BASIC, desenvolvido na ciecada 
de 60 na Universidade de Darlmoulh. 
Qos EUA. fixDu OS recursos mais ele- 
menlares de edi^ao: numerai;3o, inser- 
;ao, apagaitiento e listageni de linhas. 
Estes foram posteriormente adotados 
em lodos os outros dialelos do BASIC 
que surgiram. 

O passo seguinte consisliu em dar ao 
programadora possibilidadc de allerar 
caracteres, ja que, com os recursos an- 
teriores, o crro de um caractere obriga- 
va-o a digiiar novamente a linha loda. 

Com esse objetivo, desenvolveram-se 
comandos como o EDIT, presenles nos 
micros da linha Sinclair, TRS-80 e TRS- 
Color, Embora os recursos de edii;ao 
disponiveis no EDIT sejam basianie ver- 
sateis, eles ainda apresentam uma limi- 
ta^ao: operam apenas em uma linha — 
cujo mimero precisa ser explicitado — 
de cada vez. 



EDICAO BIDIMEhlSIONAL 



A limiiafao mencionada nao passa de 
um resquicio do tempo em que o BA- 
SIC era operado airaves de terminais 
impressores, despfovidos de movimen- 
lajjao bidimensional do cursor. 

Os projetistas do MSX, por^m, sou- 
beram superar essa limiiafao, abrindo 
a possibilidadc de se editar um progra- 
ma inteiro, e nao uma linha de cada vez, 
desde que o trecho a ser ediiado estivesse 
exibido na tela. coraardo EDIT foi, 
assim. suprimido. 

O conceito de edicSo de. programas 
no MSX aproxima-se. incidentalmente, 
do utilizado nos avan?adissimos micros 
profissionais da linha PC: envolve a uli- 



liza^ao de teclas especiais, ou da com- 
bina^ao de determinadas teclas, para 
"passear" o cursor de texto pela tela, 
inserir e apagar caracteres em qualquer 
ponto da mesma. etc. computador 
"lembra-se" das modificatoes realiza- 
das na pagina de video desde que se 
pressione a teda <ENTER> Ou <RE- 
TURN> ap6s o lermino das modi fica- 
goes em uma determinada linha. 

Uma possibilidadc interessante do 
MSX e a de editar tambem os mimeros 
de linha. Quando se utiliza esse recur- 
so. obtem-se duas linhas: a que tinha o 
mimero original, em sua propria posi- 
cao, e outra — que pode ser uma dupli- 
catada anterior OU ittcluir modificacoes 
— -. que e automaticamente inserida em 
sua nova posi^ao. 

As leclas fundamentals para a edifao 
no MSX saq as seguinles: 
^. - desloca o cursor de tex- 

to em uma posicao para 

a direila 
.^ - de.'iloca o cursor de uma 

poiitao para a esquerda 

- desloca o cursor para 
cima 

- apaga o caractere ime- 

<diatameme anterior ao 
cursor e recua o cursor 
de uma posi^gao (retro- 
I cesso) 

I - desloca o cursor para 

T baixo 

<INS> - ativa ou desativa o mo- 

do dc inserijao de carac- 
teres 

< DEL > ■ apaga um caractere e re- 

junta o restanie da iinha 

< ENTERS- - consolida as modifica- 

voes realizadas em uma 
linha 

A tecla HOME lambem pode ser uti- 
lizada durante o processo de edicao, pa- 
ra fazer o cursor retornar a posi<;3o no 
topo esquerdo da tela. 

Ao editar um programa, use primei- 
ro o coniando LIST, para colocar na te- 
la o trecho do programa que deseja edi- 
tar. Em seguida. desloque o cursor ate 
a linha a ser ediiada. Para fazer as mo- 
difica?6es, escreva por cima do texto 
exibido, ou insira e apague caracteres 
por meio das teclas INS e DEL. Em se- 
guida, pressione a tecla < ENTER > ou 



t 



< RETURN >, se quiser preservai as 
modificafoes feitas. 

A tecla INS em geral esia desativada 
— ou seja, se voce pressionar qualquer 
tecla de caractere, ele sera impresso so- 
bre o que estiver sob o cursor no mo- 
menio. Para inserir um ou mais carac- 
teres em determinado pOtitO de uma li- 
nha, primeiro desloque o cursor ale la. 
Em scguida, pressione uma vez a tecla 
INS, colocando o compuiador em mo- 
do de inseri^ao. Para encerrar o proces- 
so, pressione INS novamente ou, entao, 
< ENTER >. 

Para vcrificar se o compuiador esta 
em modo de insercao, observe o cursor 
de texto: de um retangulo, ele se trans- 
torma em um trago pequeno. Se voce 
pressionar a tecla DEL durante o modo 
de inser(;ao. podera apagar caractei^es 
sem desljgar a inscr^rao. 

Com'o au^ilio da tecla <CON- 
TROL>, pode-se obier movimenios 
mais complexes do cursor, assim como 
o acionamenlo de funcoes adicionais de 
edi?3o, Pressionando-se simultanea- 
mente <CONTROL> e uma ouira te- 
cla alfabetica. chega-se a alguns resul- 
tados inter essantes: 
<CONTROL> <F> - desloca o cur 

sor para a pri- 
meira leira da 
proxima pala- 
vra da linha 
<CONTROL> <B> - desloca o cur- 
sor paraapri- 
meira letra da 
palavra ante- 
rior, na linha 
<CONTROL><N>- desloca o cur- 
sor para o fi- 
nal da linha 
<CONTROL> <E> - apaga a linha 

correnie desde 
o ponto onde 
esta o cursor 
at^ o final 
<CONTROL><U> - apaga loda a 

linha onde es- 
ta o cursor 
Convem lembrar. Finalmenle, que os 
recursos "normals" de edivao de pro- 
gramas (numeracao, insercao de linhas, 
renumeracao. listagem, apagamenio, 
etc.), presentes no editor padrao do BA- K, 
SIC, tambem funcionam no MSX. K 
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Microcomputadores podem se revelar 
grandes jogadores de baralho, com a 
vantagem de que nunca se cansam de 
jogar. Veja aqui como pfoduzir 
gr^ficos para urn carteado. 



Seus aniigos e parenies se negam a jo- 
gar baratho com voce? J& se cansaram 
de perder dinheiro? O cacil'e e muito al- 
to para sen or?amenlo? A solugao para 
qualquer um desses problemas pode es- 
lar na serie dc arligos que iniciamos 
aqiii. Programando seu micro para jo- 
gar Vinie-e-uni, vote lera unia vilima 
perfeila e podera jogar sem perder um 
niquel. 

Nesia primeira segao. veremos como 
programar os grificos necessaries para 
criar um baralho na memoria ^ e na te- 
la ^ de seu computador. O restanle do 
programa — o jogo propriamenlc dilo 
— sera aprescniado nos dois proximos 
ariigos dc Programa^'do de Jogos. Gra- 
ve o programa por partes, a medida 



que for sendo ampliado. 

Se voce nao sabe jogar Vinie-e-um, 
nao sc preocupe: expHcaremos as regras 
na ultima se?ao da serie. Anies, por^m, 
voce precisara de um baralho completo. 



A rotina grafica que possibilita ao 
, computador niostrar as cartas na tela e 
a seguinie; 

]0 BORDEH 4: PAPER 4: INK 9: 
CLS ■ POKE 23658, R: lET B=0: 
LET C=i 

20 FOR N=USR "A" TO tJSR "H"-*/ 
- RKAO A: POKE N.A' NEXT N 
1(1 niM 'C(5Z) : FOR N^ 



[.ET C[N)=Nt NEXT N 
40 D;M A(U,.13.2) 
SO FOR N=C TO 10: FOR M=C TO 
N: HEAD A(H,M,C1 .A(N,M.2) : 
NEXT n: NEXT N 

60 FOB N=ll TO 13: t.ET A(N.C, 
C)=4: LET A[N,C.7)=2: NEXT N 
"■JEO t.ET CC=C: LET CP=100 

BO GosuB bono 

.son LET y-0: LET X = l 

525 LET Z=C (CC) 

mH) GOi'.UB S^OO 

b40 STOP 
5>000 CLS : PRINT AT 10.5i"EMBAB 
ALHANDO as (CARTAS" 
■iOlO Fon N=C TO 100 
'lOaO LET X=1NT (RNI)*S:?)+C 
'.OSfl.LET Y=TNT tRNO«52)*C 
SntDJ LET 7 = C(X) : liTC(Xl=C(Yl 
Y1=Z 



^ 
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,.^^, ■ 


GRAFICOS 


■ 


DOS NAIPES 
COMO USAR VPOKE 




a^^^H 


DE ALTA RESOLUCAO 





^^H 
^^V 


COMO DESENHAR 

AS CARTAS DO 8ARALH0 

POSICIONAMEMTO 


■ 


NA TELA GRAFICA DO MSX 

COMO EMBARALHAR 

E DISTRIBUIR AS CARTAS 



SD'ill NtXT N 
•hOfiO CI.H ■ RETURN 
55fl(l fOR N-Y TO y + 8: PHINT PAP 
ER 7iAT N,X;" " : NEXT N 

^510 IFT ST-INT ({Z-C)/13) 
SS?0 LET CH=H4+ST 
Sb30 LET VA=7-(1 TST1 
■=>S'10 IF ST<? THEN INK I 
SSfctJ LfT AC=M? + VA 
'i*,nO PRINT PAPEH 7;AT Y.XiCHRS 
AC; AT Y.X+'liCHKa AC ; AT V + S.X;C 
HRS AC;AT Y+fl.X+AiCHRS AC 
S610 FOB M=C: TO VA- /T A(VA.N.C 
)<>H THEN PRINT PAPKH 7 ; AT V+ 
A(VA."N.C) .X+A(VA,N,Z) iCHBS CH 
■if-aO NEXT N 

SBOO INK q 

SOOO flETUHN 

OliQO DATA <^.^^.\J.7.\27.\2/.f>'i.7 

H.8.0.8.ZB.6Z. 127.f>?.?fi.fl.e.;'8. 

I'' 1 ■' ' r" v^v , fl, ^s.H, 2H, ?«, I n; , 




9[I I 


DATA 





a.^ 


0, 34. 34,62 


34 


, 34 


.n, 28, 11, 3.' 


,24 


, 17 


.62 








':*n20 


DATA 





78. 


i4. 


2,12.2.14. 


28. 


0,4.12,20 


36.67 


,4, 


14 








'-■)030 


DATA 





62, 


32, 


32.60 


2 


34 


.28 


.0.2F 


.34 . 


17 


60. 


34, 


34,?11 








9040 


DATA 





62, 


34, 


2.4.8 


16.16.0 


,28.34,54 


28.34 


.3' 


,28 








9050 


DATA 





28, 


34. 


34 , 30 


2 


34 


.26 


,0.76,82,82 


82. 


82. 


82.76 








9060 


DATA 





14. 


4.4 


.4.4. 


16 


24 


,0, 


26.34,34, 


14 


58. 


103 


.30.0 


118, 


36. 


40,48.40. 


56 


116 












9070 


DATA 


85,85 


,8h 


.85.85,85. 


85, 


85 


















9100 


DATA 


4 


7 












9110 


DATA 


Z 


2.6 


.2 










91 ZO 


DATA 


2 


2.4 


,2. 


6.2 








9130 


DATA 


1 


l.l 


.a. 


7,1.7 


i 






9140 


DATA 


1 


l.l 


.3. 


4.2,7 


1 


/, 


3 


9150 
.3 

9160 


DATA 


I 


1.1 


.3 


4.1.4 


3 


■ /. 


1 ,/ 


DATA 


1 


1. I 


, 'i 


2,2,4 


1 


4 


3.7 


.1.7 


3 
















9I7U 


DATA 


1 


1. 1 


.3 


2.2.4 


[ 


4 


i,6 


,2.7 


1.7, 


3 














. 1 , '■ 


DATA 

1.',. 


1 

1 . 


.1,1 
7 . 3 


. 3 


1.1.3 


1 


.4 


2,5 


. ■ 1 - 1 ■ 


1 ■A''"^ 


1 


.^.l 
l.\. 


.3 
7. 


2,2,1 


1 


1 


).S 



lOsclecioiia a:% cncesda bor- 
_..-.K'(crei^ c do I'undo; POKE 
im que totlas as leiras sejam maiiis- 
. As iliias vari^veis — B e C — sao" 
as BO iugar dc "0" c "1" no res- 
do prowrama. Dcvida ^ maneira 
como o Spccirum trabaiha com niime- 
ros e variavcis, hso permitiri uma ego- 
iiomia dc 6 hyics. scmpre que esses va- 



lorcs aparecerem. Assim, o programa 
podera rodar no Speeirum dc t6K. 

A linha 20 pre para os carac teres 
(UDGs) usados nos naipcs, numeros e 
lelrps de cada carta. Os dados para is- 
so estao nas linhas DATA 9000 e 9070. 
Em seguida, a linha 30 cria um conjun- 
to de 52 cartas nao embaralhadas. A ma- 
iriz A. ditnensionada na linha 40, e 
preenchida com os vaiores das linhas 
DATA 9100 e 91-90, que contem as 
coordenadas das figuras dos naipes em 
cada carta. A linha 50 preenche parte 
da matriz com as coordenadas dos sim- 
bolos das cartas num^ricas. enquamo a 
linha 60 preenche o restanie com as 
coordenadas dos mesmos nas cartas 
com figuras. S possivel criar desenhos 
para as cartas com figuras. mas seria 
bem cansalivo e demorado digiiar os 
dados necessdrios. Alem disso, o pro- 
grama ficaria grande demais para o 
Spectrum de 16K. 

A linha 70 coloca os vaiores 1 e 100 
nas variiveis CC e CP. respectivamen- 
te. CC e a carta aiual, ou o elemento da 
matriz de cartas que o compuiador se- 
Iccionou por ultimo. CP e a quantida- 
de de fichas que o jogador possui. 

A linha 80 chama a sub-rotina que 
embaralba as cartas. Ela come?a na li- 
nha 5000, que apaga a tela e comunica 
que as cartas estao sendo embaralhadas. 
O computador embaralha as cartas M- 
colhendo duas, ao acaso, e trocando 
suas posii;6es. O la^o FOR. ..NEXT en- 
tre as linhas 5010 e 5050 repctc o pro- 
cesso 100 vezes, Existe uma chance de 
que uma mesma carta seja escolhida 
"trocando de posicao consigo mesma". 
Isso, na priiica, nao tern nenhuma im- 
portancia, pois o niimero de trocas de 
positao e suficienie para garantir uma 
boa "embaralhada". 

O valor da linha 5010 pode ser altc- 
rado para aumenlar o niimero de trocas, 
mas numeros um pouco maiores que 100 
jd provocam uma demora inaceitavel. A 
sub-rotina lermina na linha 5060, que 
limpa a tela e rctorna. 

A linha 525 coloca na variavel Z o va- 
lor da carta aiual — elemento CC da 
malriz C. Em seguida, a hnha 5J0 cha- 
ma a .sub-rotina 5500, que coloca as car- 
tas na tela. A linha 5500 apresenta a par- 
te branca da carta. AUnhaSSlOselccio- 



_ij- 



na o naipe correto (os naipes sao nume- 
rados de a 3). A linha 5520 calcula o 
codigo do caractere que contain o sim- 
bolo do naipe escolhido. A linha 5530 
idemifica a carta — afinal, o niimero de 
vezes que o simbolo do naipe vai apare- 
cer depende disso. 

Antes de desenhiar o naipe, o conipu- 
tador selcciona a cor adequada. A linha 
5540 acribui a cor vcrmelha aos naipes 
com niimero ou I , e a prela aos ou- 
tros dois. 

A linha 5600 desenha o niimero da 
carta usando o caractere adequado, es- 
colhido pela linha 5560. A linha 5610 de- 
senha OS simbolos do naipe, cujas coor- 
denadas sao oblidas na matriz A. 

Finalmente, com a escolha da cor 9 
(cor de coniraste), termina a sub-rotina. 



Sprites sao mais adequados para mo- 
ver figuras. Como as cartas ficarao pa- 
radas, convem uliiizar outra tecnica pa- 
ra desenhar os niimeros, letras e naipes 

das cartas. 

10 CLEAR 500:COI.OB l5.t2.1Z:SCB 

E:ENO;KEy OFF 

20 LOCATE 8.J1;PRINT "EMBAHALHA 

NDO AS CARTAS" 

30 DIM NUS(131 .MA(32) :FOB K=i T 

IJtHEAD NliSfK) -NKXT 

AO DATA BDJSflHSEBlFDaNLIDa.HDLD 

H . HDNLDL . DflDU? . NRDRDL . [JZRULUH . R 

S8DGD, ND2RDNLDI. ,NDRDNLD,D2SIUBR 

S12NlJ2Ri;2L , 54HD?)F2H?(I6L3R4 , S4NR 

5DfcR1NH2NFR2Ufc.DNDS8H.S12NEF 

^0 FOR 1=1 TO 32 

60 NA(.T)-VPEEK[BASE(2)+23 + l) 

7f) NEXT I 

82 DIM SQ(611 

84 n-RNDC-TIME) : MN=]00 

88 SCREEN 2 : FOB I-O TO 3 

^0 VPOKE BASE(101+Zs2+r. 32 

92 VPOKE BASE(10)+252+I+2b6.32 

94 ypOKE BASE(10)+?52+I + 5L2,3;! 

96 NEXT 1 

120 FOR r=l TO 32 



, NA (I ) 
. (AB.-! ( 

, NAdl 
, (AB-SI 



130 VPOKE BASE (J 21+2015 + 1 

131 VPOKE BASE n 1) +?01b+T 
I<i;i 'S+U'lfi+l!. 

132 VPOKE RASEd 2)+'1063+l 

133 VPOKE BASE[ll)+^063+I 
l<i;)*^ + l)-'16+15 

134 VPOKE 6ASra?)+fiUl + I ,NA(I1 
liS VPOKE RASE(11)-»611 l+I, {ABSI 
[<l/)«5+U'l6+l5 

140 NEXT 

160 FOB K-0 TO SI :S0 [K)=K:NEXT 

IfiO OOSUB l.SOOlN-O 

190 FOB rX-31 TO 200 STEP 4B : FO 

tl ry-1 TO 140 STEP 104 

200 noSlia 10fi(l:<iOSUB 200(l:FOn .1 

-1 TO -lOO-NEXT J.t-y.CK 

210 FOR ,1-1 TO 1 00(1:NFXT:COTO I 

90 

1000 ST=lNT[.SO(Ni /I 3) + ] NM = ;;iJ(N 



I I i'ST+M N-N+l:Tf N>'^.l THIIN N 

'0 

I OH) 

IbOO 

L^IO 

LSZO 



RETIJEIN 

FOB X-li2 TO 2 STEP - 1 
Q-lNTtBNni 1 1"X) + L 
T^EQlX-l) :SQ!X-l}-SO(tf-ll : 



SQ(0-1)-T 
1530 NEXT 
1540 FOB X^ 



TO 9rSQ!X+b2)-SQ(X 



■) :Kf;XT 

1550 RETURN 

2000 LINE {CX-l.CY-D -(CX+42,CY 

+71) ,15,BF 

2005 LINE (CX-2,C¥-1) -(CX-Z.Cy+ 

71) ,12 

2020 ES-NUS (NMl ^PX-CX+24 :PY=CY+ 

J-l^GOSUB 2550;PY-CY+LS:COSUB 2b 

50:PY-CY + 35:GOE1IB 2550:FOB J-0 



T' 
Z 
2 
O 
2 

2 

'i 
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TO 4; PX'CX+7:Py = CY+-8+.l-6TG0SU8 
2550; PX-CX+:J4:G0SUB 2550:NEXT 

2020 IF ST>Z THEN COLORl ELSE C 

0L0R6 

2030 DHAW 'SI 2BM" + STRS(CX+31 +" . 

"+STflS(Cy+-21 +SS 

2040 DRAW "S12BM"+STBS(('X^-35H" 

,-+STRS (CY+62)+3S 



2050 IF NM/Z<.>iM"(NM/21 OR NM>1 
THEN PX-CX+24:PV = !:Y + 24:G03Ufl 
2500 

2060 IF NM = 2 OB NM = ,J OR NM-Kl O 
H NM=8 THEN PX-L-X + 24 ; PY-rY+ 15 : G 
OSUB 7500 ■ P¥=PY+19:G0SUB 2500 
2080 TF NM'-i OR NM> I THEN ^MU 
2090 IF (NM'IO OB NM-8) THEN NS 



-INT I (NM- 1 1 /2) ELSE NS" 1 NT {NM, .: 

) 

2100 FOB J-0 TO NS-1 

2110 PX-CX+7 :Py-CY+a*J*.18/(NS 1 

) :GOEUa 2500 

>120 PX-i:Xti4 ^nOSlIB 2'i00 

21 30 NEXT 

2140 HETIJRN 




42 
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2500 

2b](l 
21 TNT 

2* TNT 
25-50 
2* INT 
2b50 
?*TNT 



ON nT GOTO 2hl0.^b20, 25.10 



UfOKf-: riAHKI KJl + INl M'Y/Hl 
(PX/81* l^,25Z-liETllHN 

UPOKE BASE(IOI+INTIPY/H) 
(PX/fl) + 12. 2SlrHETIJHN 

UPOKE BASE ( 101 +INT (PY/Pl) 
(PX/(iH- t2.;?S']:nP1'l/HN' 

UPOKK RASE(101 + 1NT (TY/Hl ■ 

(PX/8)*32, :^b'j-rib:TunN 

VPOKE BASE [ 10) +tNT (Py/K) 
(PX/H1+ r/.. l6S:nFTil[|N 



A linha 10 cuida do espa^o siring da 
membria (retire o comando CLEAR pa- 
ra ver que aconlece), das cores da lela 
e das leclas de fungao na parte inferior 
do video. A linha 20 comunica que as 
cartas estao sendo embaralhadas. 

As letras e numeros das cartas serao 
desenhados com DRAW. A linha 30 co- 
loca as instru^oes para o desenho den- 
tro da matriz NUS, depols que as leu na 
linha DATA 40. A linha 30 tambem di- 



mensiona essa matriz. 

Como nao podemos usar sprites, co- 
locaremos os simbolos dos naipes (os 
caracteres 3 a 6) diretamente na tela 
de alta resolupao, com VPOKE. A linha 
SO buscari os desenhos desses simbo- 
los dentro da tabela de padroes da tela 
de 40 colunas, O enderefo inicial da ta- 
bela de padroes da lela comeca em 
BASE (2). 

A linha 60 dimensiona a matriz SQ, 




irimmmsmvoGos "tt" i 



usada para embaralhar as cartas, e, ain- 
da. seleciona a tela de alta resolugao e 
inidaliza o gerador de niimeros rando- 
micos. 

O laco FOR. ..NEXT das linhas 120 
a 140 transfere os padroes dos simbo- 
los dos naipes para a labela de padroes 
da tela de alta resolugao. Alem disso, 
coloca as Qores desses simbolos na tabela 
de cores. 

Como a tela de alta resoluijao ^ divi- 



dida em tres por?oes, ludo deve ser fei- 
10 Ires vezes. Assitn, as linhas 130, 132 
e 134 cuidam dos padrSes, enquanto as 
linhas 131, 133 e 135 seencarregam das 
cores. 

O lafo FOR.. .NEXT das linhas 70 a 
110 modifica a labela de nomes da 
tela de alta resolucSo, impcdindo que 
OS simbolos sejam desenhados agora. 
Apague essas linhas para ver o que acon- 
tece. 




A linha 160 coloca vaiores de a 51 
nos primeiros elementos de SQ. A linha 
180 chama a sub-retina que embaralha 
as cartas (linhas 1500 e 1510). O valor 
e colocado em N; isso significa que o 
primetro elemento de SQ esld secdo co- 
locado em questao. 

A linha 190 inicia um lai;o FOR... 
NEXT que usa as variaveis CX e CY, 
cuja funcao e posicionar os simbolos 
dos naipes nas cartas. 

A linha 200 chama duas sub-rolinas. 
A primeira, da linha 1000, fornece o nai- 
pe — ST — e o valor — NM — da car- 
ta em questao. A segunda, da linha 2000 
a 2140, calcula as posigoes onde os sim- 
bolos dos naipes devem ser desenhados 
naquela carta. 

Esia ultima sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vdrios padroes se repeiem na 
disposicao dos simbolos dos naipes — 
as cartas de menor valor geralmente 
usam um so deles, enquanto as de maior 
valor requerem tr£s ou mais. A sub- 
rotina verifica quais desses padroes sao 
necessarios para colocar os sfmbolos de 
determinado naipe em mimero e posl- 
cao adequados. 

Antes do cdlculo das posi(oes dos 
naipes na tela, os niimeros ou letras cor- 
respondentes ao valor da carta sao de- 
senhados em cantos opostos da mesma 
pelas linhas 2030 e 2040, que usam a in- 
formacao conlida em NUS. 

As linhas 2050 a 2090. com base no 
valor da carta e de CX e CY, calculam 
as posigoes onde os simbolos dos naipes 
serao colocados na tela. As coordena- 
das da posirao estao em PX e PY. 

Uma vez que PX e PY tenham sido 
calculados, a sub-rotina da linha 2500 
^ chamada. Ela calcula a posigao da ta- 
bela de nomes — BASE (10) — em que 
devemos colocar os simbolos dos naipes, 
para que eles apare^am numa posi9ao 
correspondenle a PX.PY. Essa sub- 
rotina e responsivel pelo desenho pro- 
priamente dilo. 

A IJnha 2000 desenha a parte branca 
da carta, mas nao apaga os desenhos 
produzidos com VPOKE. Isto e feito 
pela linha 2010. que apaga qualquer 
simbolo de naipe que tenha restado de 
uma antiga carta. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
1 90. Esta desenha uma nova serie de oi- 
to cartas. 



HlEll 



Apresenlamos a seguir o prOgrama 
que mostra as cartas na tela do Apple. 
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Para que funcione no TK-2000, preci- 
saremos fazer uma pequena altera^ao. 

10 HOME :E = 35000: HIMEMr E: 
HTAB 9: VTAB 12: PRINT "EMBABAL 

HANDO AS CARTAS" 

20 F - INT [E / 2S6} : POKE 232 

,E - F * 256: POKE 233, F 

30 FOR I^ETOEt-ll + l?" 

32 

^0 BEAD A: POKE I. A 

50 NEXT 

60 SCALE- 1: ROT- 
70 DATA 20 .0 ,42 .0 ,74 .0 . 
106 ,0 ,138 ,0 ,173 ,0 ,202 ,0 
.234 ,0 ,10 .1 ,42 ,1 .74 ,1 .1 
06 .1 ,138 ,1 ,170 .1 .202 . 1 , 
224 .1 .10 .2 .42 ,2 ,74 .2 ,10 
6 ,2 ,138 ,2 

72 DATA ,72 ,45 .i09 ,209 
,251 ,219 ,23 .77 ,73 ,169 ,251 

.219 ,27 .110 ,73 ,9 ,213 ,63 
.63 ,63 .55 .77 .73 .169 .251 . 
219 ,27 .6 .0 ,0 .0 
74 DATA ,72 ,45 ,109 .209 
.27 ,223 ,155 ,73 ,9 ,77 .218 . 
59 .63 .159 ,9 ,77 ,73 .218 ,21 
9 ,251 .74 ,45 ,109 ,209 ,219 , 
219 .19 .0 ,0 ,0 ,0 
76 DATA .72 ,45 ,109 ,209 
.251 .219 .83 .73 ,9 ,141 .2 19 
,63 ,255 ,74 ,73 ,105 ,218 ,223 

.219 .74 .45 .109 .209 .219 .2 
19 .19 .0 ,0 ,0 .0 .0 
78 DATA ,72 ,77 .77 ,21B 

,251 ,251 ,74 .77 ,77 .218 .63 
.63 ,159 .73 ,9 .77 .218 ,251 , 
219 .74 .73 .77 .21B .219 ,219 
,2 ,0 ,0 .0 ,0 .0 
80 DATA ,72 ,45 ,109 ,209 
.219 .27 ,159 ,9 .77 ,73 .218 . 
59 ,63 ,159 .73 ,9 .77 ,218 ,25 
1 ,219 ,74 .45 ,109 .209 ,219 , 
219 .19 ,0 .0 .0 ,0 
B2 .DATA ,72 ,45 ,109 ,209 
.y« .27 .159 .9 .77 ,73 ,218 . 
59 53 ,159 .9 ,77 ,77 .218 ,25 
i .451 ,74 ,45 .109 .209 .219 . 
■b9 ,49 ,0 ,0 ,0 .0 
04 DKA .72 .45 ,45 ,141 , 
.223 ,219 ,74 ,73 ,105 .218 
.219 .74 .9 ,77 ,209 .219 
^ .73 .77 ,209 ,219 ,219 

.19^^Lo .0 .0 .0 
86 nS ,72 .45 ,109 .209 
.27 ,2tT ,15.9 ,9 ,?7 ,77 ,218 . 
59^.63 ,159 ,9 .77 .77 ,218 ,25 
1 .ill .74 .45 .109 .209 .219 . 
,; 1 9 ,19 ,0 .0 .0 .0 4|^ 

88 DATA ,72 .45 ,109 .209 
,27 .223 ,159 .9 .77 ,77 ,218 , 
59 ,63 .159 fcZ3 ,9 ,77 ,218 .25 
, 1. ,219 .74 .^^^ .218 ,21 9 ,2 
19 -0^^^^ "^ 

?0 DATA ^Blv -"^^ -^^^ -^ 

51 ,251 .IS^lftS .105 .169 ,25 
1 .251 ,187 ,lor",105 .169 .251 

,251 .187 ,105 ,41 ,45 ,213 .2 
19 .219 .19 .0 .0 .0 .0 .0 
92 DATA ■ . 72 ,9 .45 .14] 
-^19 ,223 ,155 .73 ,9 ,77 ,216— 
*^bl ,219 ,74 .73 ,77 .218 ,251~ 



^ 



27 ,87 .77 .105 .209 ,219 .63 . 

159 ,0 ,0 .0 .0 ,0 

94 DATA ,8 ,45 .45 .109 .2 

18 ,223 ,27 ,87 ,77 ,9 ,141 .27 
,223 ,27 .87 .109 .9 ,141 .27 

.223 ,31 ,87 ,45 ,45 ,109 ,218 
.251 .219 .2 .0 ,0 
96 DATA .a .77 .73 ,209 ,2 
23 .219 ,87 ,77 .9 ,141 ,219 ,2 
23 .187 ,41 ,45 ,77 .209 ,27 ,2 
23 .187 ,105 ,73 ,141 .251 ,219 

, 187 .0 ,G ,0 .0 .0 
98 DATA ,72 .109 ,109 .26 
.63 .63 .63 ,87 ,45 ,46 ,45 ,21 
3 ,59 .63 .255 .74 .41 .109 ,20 
g .219 ,223 ,83 ,73 .73 ,209 ,2 

19 .219 .19 .0 .0 ,0 

100 DATA ,72 ,9 ,77 .209 , 
27 .63 ,223 .74 .45 ,45 ,141 .5 
9 .63 .63 .191 .9 .45 ,45 ,141 
,219 .63 ,223 ,74 
219 .219 ,19 .0 .0 
102 DATA .72 

,27 .63 ,223 .74 
265 .31 ,191 .41 ,45 ,45 
59 ,31 ,31 ,191 ,73 ,105 .137 
219 .63 .223 .2 ,0 ,0 
104 DATA ,72 ,9 .77 
27 .63 .223 ,74 ,45 ,45 
9 ,63 ,63 ,191 .41 ,45 ,45 

.27 .31 ,31 ,159 ,73 .105 

,219 ,63 .223 .2.0 
110 DIM SQ(61) 
120 FOB K - TO 51:SQ(K) 

NEXT 
150 HGR ; POKE - 16302.0 
170 HC0LOR= 1: FOR I - TO 19 
1; HPLOT O.I TO 279,1: NEXT 
180 GOSUB 1500:N = 
190 FOR CX - 6 TO 250 STEP 54: 

FOB Cy - 2 TO 120 STEP 100 
200 qOSUB 1000- GOSUB 2000: FO 
B J = 1 TO 500: NEXT J.CY.CX 
210 FOB J = 1 TO 1000: NEXT : 
GOTO 190 

1000 ST - INT (SQCN) / 13) + 1 
:NM = SQIN) - 13 * ST + 



,9 .77 ,209 , 

,41 .109 ,209 
,9 ,77 ,209 . 

.173 , 



. 209 , 
,141 ,5 
,173 
,137 



K: 



N + 1: IF N > 
1010 RETURN 
FOB X - 
Q = IMT 



1500 

1510 

1 

1520 

SQ(Q 

1530 

1540 



14:N - 

51 THEN N = 

52 TO 2 STEP - 1 
( BND (1) « X) + 



1) 



T - SQCX - 1) :SQ{X - 
- 1) :SQ(Q - 1) = T 
NEXT 

FOR X - TO 9:SQ(X + 52J 
- SQ(X) : NEXT 
1550 BETUBN 

200D HCOLOB- 3; FOB I - CY TO 
CY + 80: HPLOT CX , I TO CX + 50. 
I : NEXT 
2010 S = NM 

HCOLOR- ^^ 

DRAW 3 AT CX + 3.Cf + S 
BOT- 32: DRAW S AT CX + 4 
+ 72: ROT* ^ 

IF NM / 2 < > IMT (NM / 
10 THEN PX - CX + 2 
39' GOSUB 2500 
- 2 OR NM = 3 OR NM 
Jib NM = e THEN PX - CX + 
^ CV + 27: GOSUB 2500:Py 




n NM > 

= CY + 

F NM 



= PY + 26:PX = PX + 8: BOT- 32: 

GOSUB 2500 : BOT= 
2080 IF NM < 4 OH NM > 10 THEN 

2140 
2090 IF {NM = 10 OB NM - 8) TH 
EM NS = INT ( (NM - 1) / 2) : GO 
TO 2100 

2095 NS = INT (NM / 2) 
2100 F-OH J - TO NS - 1 
2110 PX - CX * 8:PY = CY + 20 + 

J « 38 / [NS - 1}:F - (J * 38 
/ (NS - 1) + 20 > 39) : ROT- F • 

32:PX - PX + F " 8:PY - PY + F 

■ 2: GOSUB 2500; BOT= j 

2120 FE = iJ * 38 / CNS - 1) + I 

20 < 34) :F = NOT (FE OB F) : PX 
" CX + 32 + ( NOT FE) * 8 : PY " 
PY + F - 2: ROT- NOT FE « 32: I 

GOSUB 250 0: ROT- 
2130 NEXT 
2140 RETURN 

2500 ON ST GOTO 2B10. 2520 . 2530 
,2540 

2510 HCOLOR' 0; DRAM 14 AT PX . 

PY: RETURN 

2520 HCOLOR= 0: DBAU 15 AT PX, 

PY: RETUBN 

2530 HCOLOR= 0: DRAW 16 AT IN 

T (PX), INT (PY) : BETUHN 

2540 HCOLOH" 0: DRAW 1 7 AT IN 

T (PX) , INT (PY) : RETURN 

Se voce tiver um monitor monocro- 
m^tico e quiser dar um aspecto mais 
agrad^ve) h tela, apague a linha 170. 

Os usuarios do TK-20O0 devem mu- 
dar a linha 160 para: 

1160 MP : HGB 

As primeiras Ijnhas do programa sao 
responsaveis por raonlar na mem6ria do 
Apple uma tabela de figuras contendo 
as letras e niimeros das cartas, bem co- | 
mo OS simbolos dos naipes. As linhas 
DATA 70 a 1(M foram criadas pelo nos- 
so programa editor de figuras. As pri- 
meiras delas, com excecao da mensagem 
"EMBARALHANDO AS CARTAS", jd 
apareceram diversas vezes em INPUT. 

A linha 1 10 dJmensiona a matriz SQ, 
usada para embaralhar as cartas. A li- 
nha 120 enche essa mesma matriz com 
valores de a 51. 

A linha 160 liga a tela de alta resolu- * 
<;ao. No Apple, um POKE faz com que 
a tela seja toialmentc utilizada. No 
TK-2Q|Mi^^^ selecionada e a segno- 
da.^^^^^^^^^P precede HGR, pa- 
ra ^^^^^^^^ftnio 

de fun- 

dol 




FOR., 

as variaveis CX 
ionar os slmh 




\f17 PKOCaAMACAODEJOCOS K 



1 



A iinha 200 chama duas sub-rolinas. 
A primeira, da Iinha 1000, fomece o nai- 
pe — ST — e o valor NM — da carta 
em questao. A segunda, da Iinha 2000 
a 2140, calcula as posifoes em que de- 
vem ser desenhados os simboios do nai- 
pe da mesma carta. 

Esta tiltima sub-roiina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
niento. Varies padroes se repetem na 
disposi^ao dos simboios dos nalpes — 
as cartas de menor valor geralmente 
usam um so deles, enquanto as de maior 
valor requerem dois ou mais. A sub- 
rotina verifica quaJs desses padroes sao 
necessirios para desenhar os simboios 
de determinado naipe em niimero e po- 
sicao adequados. A instrucao ROT com- 
plica um pouco mais essa sub-rotina, 
pois faz com que alguns simboios apa- 
regam de cabefa para baixo. 

Ames do calculo das posigoes, as 11- 
nhas 2030 e 2040 desenham os niimeros 
oii letras da carta em questao em can- 
tos opostos da mesma, usando DRAW. 

As linhas 20S0 e 2090 calculam as po- 
sii;5es de cada simbolo do naipe, com 
base no valor da carta. PX e PY sao as 
coordenadas desta posi^ao. 

Uma vez que PX e PV tenham sido 
calculadas, a sub-rotina da Iinha 2500 
e chamada. Essa rolina usa DRAW pa- 
ra desenhar os simboios dos naipes. 

A Iinha 210 provoca uma pausa an- 
tes que o programa volte para a Iinha 
190. Esta desenha uma nova serie de dez 
cartas. 



Apresentamos a seguir a se^ao do 
programa para o TRS-Color que dese- 
nha as cartas. Digite-a e use RUN para 
ver compuiador distribuir as cartas. 



•ESTOU EMBABA 



10 PMODE 3,1 

20 CLS:PBINT 6226, 

LHANDO AS CASTAS" 

30 DIM NUS(13) ;FOR K=l TO 13;HE 

AD NUS(K) :NEXT 

40 DATA BD2S4U5EB5FD2NL5D3.BDLD 

R.HDNLDL,DHDU2,] 

tX3D . ND2HDNLDL , NDf 

2NU2BU2L,S'1BD5F2| 

6B3NH2NFJ 

50 FOB 

P 32 

60 R 

:NEX 

70 DA' 

187,18 

9, 176 

DATA 2,0. 
176.236,23 
,3.0.3,0 





120 GET(0, 
J.30 GET[0, 
140 GET{0, 
150 GET(0, 



90 DATA 1.0,6,64,9.128.38,96,25 
.144,102,100,153,162,102,100,15 

3,152,34,32.1,0 

100 DATA 2,0,9.128,6,64,9,128,3 

4,32.163,152,102. 101, 153, 152. 10 

2,101,17,16,2,0 

110 DIM C(3) .D(3) .H(31 .3 UJ .SQ( 

61) 

,0) "(13, 10) ,H,G 
,11)- (13,21) ,D,G 
,22)- (13,32) .S,G 
33)-(13,43) .C,G 

160 FOB K=0 TO 51 ;SC [K] =KiNEXT 

170 PCLS 6:SCREEN 1.1 

180 GOSUB 1500:N-0 

190 PCLS 6;F0a CX=6 TO 200 STEP 
50:FOR CX=11 TO 106 STEP 97 

200 GOSUB lOOOiGOSUB 2000:FOR J 

=1 TO 6D0:NEXT J.CY.CX 

210 FOR J-1 TO 1000:NEXTrGOTO 1 

90 

1000 ST-INT(SQCNt/13)+l:NM-SQ(N 

)-13*ST+14:N-N+l:IF N>51 THEN N 

-0 

1010 RETURN 

1500 FOR X-52 TO 2 STEP -1 

1510 Q-RND(X) 

1520 T-SQ(X-l) :SQ(X-1)-S«(Q-1) : 

SQ(Q-1)-T 

1530 NEXT 

1540 FOB K-0 TO 9 : SQ (X+52)-Sa (X 

) iNEXT 

1550 RETURN 

200 LIHE(CX.CY)-(CX+44,CY+72) , 

PRESET. BF 

2010 SS-NUSCNMl 

2020 IF ST>2 THEN COLOR 7 ELSE 

COLOR 8 

2030 DBAW"S12BM"+STR3(CX+3)+".- 

+STBS(CX+2)+SS 

2040 DHAWS12BM"+STBSCCX+35) + ", 

"+STHS(CY+64)+S3 

2050 IF(NM/2 <> INT(NM/2) AND N 

M07) OR MM>10 THEN PX-CX+16! P 

Y-CY+31 :GOSUB 2500 

2060 IF NM-2 OB NM-3 OB NM-10 

H NM-8 THEN PX-CX+16: 

GOSUB 2500: py-PY+24: 



2070 IF NM-7 THEN PX-CX+16: PY- 

CY+39: GOSUB 2500 

2060 IF NM<4 OR NM>10 THEN 2140 

2090 IF (NM-10 OR NM-8) THEN NS 

-INT( (NM-l)/2) ELSE NS-INT<NI1/2 

) 

2100 FOR J-0 TO NS-1 

2110 PX-CX + 3:PTr-CTf+12+J*3B/(MS- 

1) : GOSUB 2500 

2120 PX-CX+3D:G0SUB 2500 

2130 NEXT 

2140 RETURN 

2500 ON ST GOTO 2510,2520,2530, 

2540 

2510 PUT{PX,PY)-[PX+13,PY+10) .H 

.OR: RETURN 

2520 PUT(PX.PY)-(PX+13,PY+] 

.0B:RETURhJ 

2530 PUT(PX,PY)-[PX+13,PYH 

. OR : RETURN 

2540 PUT(PX,PY)-tPX+13,Pl 

. OR : RETURN 



PY-CY+19: 

GOSUB 250 




Escoihemos um PMODE com 4 co- 
res, de modo que os naipes e numeros 
das cartas sejam azuis ou vermelhos. A 
linba 20 comunica ao jogador que as 
cartas estao sendo embaralhadas. 

O comando DRAW coloca na tela de 
alta resolu?ao as letras para os ases, reis, 
damas e valetes, bem como os numeros 
das cartas. As inslru'coes para esse co- 
mando sao lidas na Iinha DATA 40 e 
guardadas na matriz NUS pela Iinha 30, 
usando READ. 

A Iinha 60 coloca os simboios dos 
Tiai^pes na tela, usando POKE. Os pa- 
droes para esses simboios sao obtidos 
nas linhas OATA 70 a 90. As linhas 120 
a 150 usam o comando GET para guar- 
dar OS simboios na memoria. lao logo 
sejam desenhados. As mairizes que os 
guardam foram dimensionadas na Iinha 
1 10, juntamente com a matriz SQ, em- 
pregada para embaralhar as cartas. A Ii- 
nha 1 60 coloca OS numeros a 5 1 na ma- 
triz SQ. 

A Iinha 180 chama a sub-rotina que 
comeca na Iinha 1 500, para que as car- 
las sejam embaralhadas. valor zero e 
colocado em N, o que significa que o ele- 
menlo da matriz SQ esta em questao. 

A Iinha 190 colore a tela de ciano e 
inicia dois lacos FOR.., NEXT que in- 
duem as \ariaveis CX e CY, usadas pos- 
teriormeme para posiciooar os simbo- 
ios dos naipes nas cartas. 

A Iinha 200 chama duas sub-rotinas. 
A primeira, da Iinha 1000, calcula o nai- 
pe — ST — e o niimero — NM — da 
carta em questao. A segunda, da Iinha 
2000, calcula as posiv'oes em que os sim- 
boios do naJpe da carta serao desenhados. 

Esta ultima sub-rotina parece compli- 
cada mas, com a ajuda de um batilho, 
pode-se entender melhor seu funcidTia- 
menio. Existem certos padroes qucK re- 
petem na disposi»;ao dos simljolosiA 
naipe — as cartas de menoi valor usam 
apenas um deles, enquanto as de m 
valor requerem dois ou mais. A 
rolina verifica quais os padi^^n 
sdrios para desenhar a carta ^^westao. 

Antes do calculo das posi^raBlo nai- 
pe, a Eetra ou o mirTieFOda carfa e de^e- 
nhado em dois cantos opostos da mes- 
ma, co^Ap comando DRAW a a infor- 
macaff'COniida em NUS. 

As tinhas 2050 a 2090 calculam as. po- 
sic^es dos simboios ^ naipe com base 
no valor da cart 
denadas dessa: 
partir de CX 

Uma vez que 
calculadas, a sub-rotina 2500 e chama- 

, desenhando os simboios do naipe. 

A Iinha 210 provoca utOa pausa an- 
queo programs volte i Iinha 190. Es- 

apaga a tela e mostra outra carta. 



neo^ 



nbolos cU n 
|ue l4wi 



PY sao as coor- 
calculadas a 



Y tenham sido 



)GRAMACAO BASIC} 




FUNC© 




Aqui estSo mais algumas funpoes 
matem^tkas em BASIC. Suas aplica9oes 
priticas vao desde o calculo da area 
de um piso at^ o calculo da velocidade 
de um corpo em queda. 



A funfao de poienciacao tern varia- 
das aplicafoes, sobretudo quando pre- 
cisamos calciilar dreas e volumes em 
nossos programas. 

No compulador, essa fun?ao, repre- 
semada per T. e colocada sempre enire 
dois niimeros. Por exetnpio: 2t3 (diz-se 
"dois elevado a terceira potencia"). 



aiEiPi^ 



Na matoria dos computadores aqui 
indicados. a fungao de potencia^ao de- 
ve ser digitada por meio da tecla " (cir- 
cunflexo), e i assim que ela aparecera 
nas listagens. As excefoes sao: 



D 



Usa-se a tecla T para digitar a opera- 
te de potenciasaQ, 



Usa-se a tecla •• (dupio asterisco) pa- 
ra digitar a operatjao de polenciapao. 

Um niimero elevado i potencia de 
outro e simpiesmente o primeiro mime- 
ro mulliplicado por ele mesmo um cer- 
to niimero de vezes. O segundo niimero 
determina quanias vezes. 

De volla ao exemplo inicial, dois ele- 
vado a terceira potencia e dois mullipH- 
cado por dois tres vezes. Ou seja: 



2"3 



2«2"2 



A operapao e a mesma para qualquer 
par de niimeros. 

2'5 - 2*2*2*2*2 - 32 
5-4 . 5«5«5*5 - 625 

Convencionalmenle. represenla-se a 
fun^o de potenciaeao colocando-se o 
segundo niimero, em lamanho menor, 
junto ao primeiro. Por exemplo, 2^ 5'*. 
O compulador, porem, nao entende es- 
sa notai;ao maiematica. 



AO QUADfiADO E AO CUBO 



n 



A potencia de dois e a potencia de 
Ires recebem denominacoes especiais. 
Qualquer niimero elevado k potencia de 



dois e dito "elevado ao quadrado", e 
qualquer niimero elevado a potencia de 
ires e dito "efevado ao cubo". De fato. 
existcm razoes para esses nonies. 

Quando caiculamos a drea de um re- 
tSngulo (seja ele um lapete ou qualquer 
objeto retaiigular), medimos seu com- 
primento e largura e, em seguida, mu(- 
tiplicamos os dois niimeros. O resulta- 
do dessa multiplicacao e um niimero em 
unidades quadradas. A Area 6 medida 
em "metros quadrados" porque, na ver- 
dade, estamos calculando quantos qua- 
drados, de lados iguais a um metro, ca- 
bem nesta area. Da mesma maneira, um 
niimero elevado a dois e dito ao quadra- 
do (uma Area quadrada e representada 
pela multiplica?ao da unidade basica 
por ela mesma). 

Enquanto a potencia de dois recebe 
um nome de medida de area, a poten- 
cia de tres recebe um nome de medida 
de volume. Para calcular volume de 
um cubo, multiplicamos comprimen- 
to pela largura e, depois, pela altura. 
Sao necessdrias. portanio, ires mullipli- 
capoes da unidade bdsica (duas para a 
Area e mais uma para a aliura). Um nii- 
mero elevado k terceira potencia 6, as- 
sim, um niimero ao cubo. 



POTENCIAS MAIOflES 



Vimos que um niimero ao quadrado 
calcula irea e um niimero ao cubo cal- 
cula volume. Nao e possivel conslruir 
modelos para potencias maiores que 
ires. Se (ivessemos um objeto com qua- 
Iro dimensoes, seu volume seria medi- 
do em unidades de quarta potencia, o 
que e obviamenie absurdo. Contudo. as 
potencias maiores tern muila uiilidade, 
como veremqs a seguir. 

Suponha, por exemplo, que quere- 
mos saber a probabilidade de um dado 
cair com a face seis para cima. fi sim- 
ples: cada face tem a mesma chance de 
aparecer; portanto, cada face tem 1/6 
de chance. Suponha, agora, quequere- 
mos saber a probabilidade de obter seis 
duas vezes seguidas. Existe 1 /6 de chan- 
ce de que apareca um seis na prlraeira 
vez e, s€ aparecer, existe outro 1/6 de 
chance de que apareca um seis na segun- 
da vez. A probabilidade total e 1/6 ve- 



zes 1/6, ou seja, 1/6 ao quadrado. O 
mesmo vale para quantas vezes quiser- 
mos. A chance de que dado caia sete 
vezes com o tres para cima, por exem- 
plo. e: 1/6*1/6* 1/6' 1/6* 1/6- 1/6 
* 1/6 = {l/6)t7. 

Quando examinamos a conversao pa- 
ra binario, tivemos a oportunidade de 
usar niimeros eievados a potencias maio- 
res. Cada di'gito binario represenia uma 
potencia do niimero dois. No niimero 
binario 1 11 1 1 1 1 1 , por exemplo, o pri- 
meiro digito da direiia (bit 0) represen- 
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la urn 1, o segundo (bit I.) um 2, o ter- 
ceiro (bit 2) um 4 e os segtinles, respec- 
tivamenie, 8, 16. 32, 64, 128. 

Veja que 4 e 2*2, ou 2 elevado a po- 
tencia de 2; 8 e 2'2*'2, ou 2 eievado a 
lerceira poiencia. 16 e 2'2*2'2 e assim 
por dianie: 

2-2 a 2*2 =4 

2-3 = 2«2*2 - 8 

2"4 = 2^2*2*1 = 16 

2-5 - Z'Z*2*Z*2 - 32 

2"6 - 2*2"2'<2«2*2 - 64 

2"7 » 2«2"2*2»2"2«2 « 128 



PROGRAMACAO 



A FUNCAO DE POTENCIACAO 



NU MEROS AO QUADRADO 
E N UMEROS AO CUBO 
NUMEROS ELEVADOS 



A GRANGES POTENCIAS 



Estao faltando dois valores nessa ta- 
bela. Pode-se perceber facilmenle quais 
sao eles, mas a explicagao talvez se- 
ja um tanio surpreendenie. O primeiro 
valor t T\\. Obviamenie, pela analo- 
gia bindria, e!e deve ser 2, Na verdade, 
se 2t2 e 2 multiplicado por ele mes- 
mo uma s6 vei. 2T1 deve ser 2 mulii- 
plicado por ele mesmo uma vez a me- 
nos, ou seja, nenhuma.vez. 2T1 fica, en- 
[ao, valendo 2. 

O valor abaixo deste ^ 2T0. A primei- 
ra vista, parece que o resultado e zero mas. 



CALCULO DA AREA 



DE UM QUADRADO 



A RAIZ QUADRADA 



USO DA FUNCAO SQR 



NUM PROGRAMA 



pela tabela acima, fica daro que e 1. 

Isso acontece porque 2 precisa s-er 
multiplicado por ele mesmo uma vez a 
menos que 21 1 . Como 2T I 6 2 mesmo, 
s6 ha uma maneira de multiplicar uma 
vez a menos: dividir 2 por ele mesmo. 
E qualquer numero dividido por ele 
mesmo, como sabemos, vale 1. 

Para verificar o que foi dito ou o va- 
lor de qualquer oulra poiencia, voce de- 
ve digitar: 

PRINT 2~X 




.^ 



^- 




...onde X e o valor que preLende verifi- 
car. Em seguida, lecle <ENTER> ou 
< RETURN > . 



POR CURIOSIDADE. 



Experimente airjbujr qualquer valor 
a X, ainda que valores grandes possam 
acarreCar erros de sobrecarga (overflow). 
O que aconteceria, por exempio, se se 
rizesse X iguai a 1/2? Relornaremos ao 
assume mais larde, Por enquanio, va- 
mos cxplorar um pouco mais a tao usa- 
da polencia quadrada. 



COMPARE OUADRADOS 



O programa abaixo usa uma serie de 
niimeros para desenhar na lela diferen- 
les quadrados. permite que se escolha 
dois deles e compara suas areas. Acom- 
panhando-o, a ideia de potencia Hcara 
mais clara. 
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10 SCREEN 2:C0L0B 15,12.3 
20 FOH N-17 TO I STEP ~1 

30 LtNE(60,171)-(60+8-N,l?l-B*N 

) .1 .B 

40 NEXT 

50 IF INKEYS="" THEN 50 

60 CLS:SCBEEN 

70 PBINT''Dese ja comparar alguma 

area (s/n) ?" 
80 AS=INKEYS:IF AS<>"s" AND AS< 
>-n' AND ASO-S" AND ASO'N" TH 
EN 80 

90 IF AS="n" OB AS-"N" THEN 370 
100 PRINT: rNPUT"Qual o pnmeiro 

quadrado cu ja Area quer compar 
ar (1-17) ■ ;A:A=TNT(A) : IF ACl O 
B A>17 THEN 100 

110 PHINT;INPUT"E qual 6 t> aegu 
n_d_D (]-]7) " iB;B=INT(B) : IF B< I 
OR B>17 THEN LJO 
120 TF A>B THEN 220 
130 CLB:PfirNT" A prinieira ^rea 
Cribe " : 

140 PBINTUSlNa"||l.H":B'2/A-2; 
iSO PRINT" vezea den-tro da aeg 
unda" 

160 FOR K=l TO 2.'i00:NEXT 
170 CLS: SCREEN 2 

180 LTNE(6r), 171) -(60 + 8"A,171-B* 
A) , I ,BFaTNE(60. 171)-(60 + B*B. 17 
l-S'-B) , 1 , B 

190 IF TNKEVS="" THEN 190 
200 CLS;SCHEEN 0: PRINT" Quer CO 
lEparar mais alquma ^rea (ayn] ? 
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60 

]S0 

70 NEXT I 

80 FOa T ' 

€.XT 




210 GOTO 80 

220 CLSiPBINT" A primpira drea 

e " i 

2 JO PBTNTUSTN(.;"«H . »« - ; A" 2/B' 2 ; 

ItO PUJUT" vpzes naior que d ae 

gunda" 

7.S(1 SWAP A,t) 

260 GOTO 160 

270 CLS 

2flO LOCATE 'i.lO 

290 PBTNT"(iualquer rpi:la para r 

einicTiar" 

300 IF TNKEVS'"" THEN 300 

^] a GOTO 10 



10 HGH2 : HCOLOM- 3 
20 HPLOT lO.lfin TO IBO.IHO 
30 HPLOT 10,10 TO lO.JflO 
40 FOB T = 10 TO 170 STEP 10 
HPLOT 10, T TO 190 - 1,1 
HPLOT 190 - 1,1 TO 190 - I, 



TO 3000: NEXT : T 



t 



# 



m 



$ 
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90 HOME : VTAB 10 

100 PRINT "DESE.IA COMPARAH ALU 

UMA AREA (S/N) 7" 

J 10 GET AS: IF AS < > "S" AND 

AS < > "N" THEN no 
120 IF AS = "N" THEM 500 
130 PRINT ; INPUT "QUA:. PRIM 
EIRO Q!)ADRADO QUE OESE.IA COM-PA 
BAB (1-17) "rA:A - INT (A): IF 

A < 1 OR A > 17 THEN i 3U 
1-JO PRINT : INPUT " E QUAL O SE 
GUNDO (1-17) "iB:B = INT (B): 
IFB<10RB>17 THEN 140 
150 IF A > B THEN 190 
160 HOME ; VTAB 10 
170 PRINT "A PRIMETHA AREA CAB 
E"iB"3/A"2i" VEZES DENTR 
O DA SEGUNDA" 
18(1 GOTO 210 
190 HOME : VTAB 10 
200 PRINT "A PRTMETRA AREA E' 
":A * 2 / B - 2;" VE7ES MAIOH Q 
UE A SEtnJNDA" 

210 FOR T = TO 2(100- MEXT 
220 HnR2 ; HCOLOR= 3 
230 KA = (A + 11 * J0:LA = J90 

- KA 

240 KB = (B + I) « LO:I.a = 190 

- KB 

250 HPLOT 10. LA TO KA , LA TO KA 

,180 TO 10, ISO TO I O.LA 

260 HPLOT 10, LB TO KB . L8 TO KB 

,180 TO 10, 180 TO in, LB 

270 FOB T = TO .10(10: NEXT 

500 TEXT : HOME ■ VTAB 10 

510 PRINT "QUALQUEB TECLA PARA 

HEINIOIAH" ; 
520 UET AS r IF AS = "" THEN 52 

530 HUN 



10 CLS 

20 PRINT AT 2.0;"Coinprinienl:o" 

;AT 3.0;"do3":AT -1 . ; " 1 ados" 

30 PRINT AT 2,2<;"Area" ;AT 3, 

24; 'do" : AT 4. 24 ; "quad r ado" 

40 LET z = ; PLOT ."55. 23 

50 FOR n=l TO IJ 

60 LET ni=n: IF iii>; THEN (.ET 

Bi»ni-8 

70 DRAW 0,n*e 

80 URAU PAPER ni;n*8,0 

90 DRAW PAPER niiO,-Cn"81 

100 DRAW PAPER 7;-(n''B).0 

110 PRINT AT 6+(n-n) .OiniAT 6 

+ {] .1-n) .25 ;r*n 

120 PAUSE 10: NEXT n 

140 INPUT "Voce quer compiireir 

areas in/n) ?" -.hS 

150 IF dS<>"B" AND dS<>"n" 

THEN (iOTO 140 

160 IF a3 = "ii" THEN GOTO 300 

170 INPUT "Qual e o primeiro q 

uadrado cuja area vorp qiier co 

mpardr? (l-13)";a: IF a<l OR a 

>1 3 THEN GOTO 170 

180 INPUT "E qual e o aegundoV 
Cl-Ul-ib; IF t)<l OH b>]3 THEN 
GOTO IflO 
190 LET X=1NT (a): LET y- (NT ( 



h) 

200 IF x>Y THEN (50TO 780 

210 CLS : PRINT 'A aegunda are 

a t; "iy"2/x'Z;" vezes mainr do 

qiift a pr J ran 1 ra" 
220 PLOT 20,0' DRAW x«8,0: 
DRAW 0.x*8: DfiAW -x-8 , : DHAW 
0,~X'B: DRAW v*8,0: DRAW O.v'B 
: DRAW -y*8,0; DRAM 0,-y"8 
230 PRINT "Voce quer cntnparar 
maia areas Is/n)?" 
240 INPUT aS 

JbO IF a3<>"a' AND a3<>"n" 
THEM GOTO 240 

260 IF aS="n" THEN LET z = l-. 
GOTO 300 
2/0 GOTO I/O 

2B0 r.LS : PRINT "A primeira rir 
ea e ";K"2/y"2:'' veneEi mainr rl 
o que a aetjvinda" 
290 GOTO ?20 

300 IF z=l THEN CLS : LET Z'O 
310 PRINT JNK 7; Fl.A.SH I ; AT 
, ; " PrR."?3 I one qua I quer Led a 
piira recomecrar" 
320 PAUSE 

330 IF [NKEYS="n" THEN STOP 
3 40 RUN 



Q 



ID P[10DE4. 1:PCLS:SCREEN1.1 
20 FOR N-17 TO 1 STEP -1 
30 LINE (20, 171)-(20+e*N. 171-8* 
N) .PSET.B 
40 NEXT 
50 CLS 

60 IF INKEVS="" THEN 60 
70 PRINT' VOCE QUER COMPARAH AR 
EAS (S/N) ?" 

80 AS = INKEYS:IF ASO'S" AND ASC 
>"N" THEN BO 
90 IF AS^-N" THEN 220 
100 PRINT;INPUT" QUAL E PRIME 
IRO QUADRADO CUJA AREA VOCE QUE 
R COMPARAR ( 1- 1 7 ) " ; A : A-INT (A) : I 
F A<1 OR A>17 THEN 100 
110 PRINT [INPUT- E QUAL E SEG 
UNDO (1-17)";B:B=INT(B) :IF B<1 
OR B>17 THEN 110 
120 IF A>B THEN 200 
130 CLS:PRINT" A SEGUNDA AREA E 
" ;B'2/A"2; "VEZES MAIOR DO Q 
UE A PBIMEIRA" 
140 FOR K-1 TO 6000:NEXT 
150 PCLS: SCREEN 1.1 
160 I.INE(2O,171)-(20 + 8"A, 171-6* 
A) ,PSET,B:LINE<20,171)-(20+e'"B. 
171-8''B) .PSET.B 
170 IF INKEY5--' THEN 170 
180 CLS. PRINT" VOCE QUER COMPAR 
AB MAIS AREAS (S/N) 7" 
190 GOTO SO 

200 CLS:PBINT" A PHIMEIRA AREA 
E-;A"2/B"2:PRINT §32." VEZES MA 
lOB DO QUE A SEGUNDA." 
210 GOTO 140 
220 CLS 

230 PRINT §33,"PBESSIONE QUALQU 
ER TECLA PARA HECOHECAR"' 
240 IF INKEYS-"" THEN 240 
250 GOTO 10 
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A retina que Uz a comparai;ao co- 
mei;a pedindo que se escolha o primei- 
ro dos dois quadrados que serao coie- 
jados. Em seguida, verifica se o nume- 
ro que entrou nao e ilegal, ou melhor, 
se nao e menor on maior que o niimero 
de quadrados. 

A runi;ao INT transforma em inlei- 
ro o numcro que entrou, caso este seja 
um decimal. 

Uma vez escolhidos os dois niimeros, 
o computador compara-os a fim de de- 
lerminar qual c o maior. Em seguida, 
eleva cada numero ao quadrado (isco e, 
multiplica cada um por si mesmo) e di- 
vide o maior pelo menor. 

Finalmente. oblido o resultado, a ro- 
lina joga na tela a mensagem que diz 
qual numero e o maior e o quanlo ele 
e maior que o ouiro. 



RA12 QUADRADA 



A potencia de dois, ou a funi;ao qua- 
drada, lalvez seja a mais utilizada das 
polencias. Mas muitas vezes precisamos 
usa-ia no modo inverso, ou ssja, achar 
o numero que gerou o numero ao qua- 
drado que conhecemos. Suponha que 
sabemos, por exemplo, que a area dc um 
quadrado e 81 e queremos especit'icar o 
comprimcnto dos lados. 

Com o niJmero 81 nao e tao dificil; 
9 vcMs 9 e 81; portanlo, o comprimen- 
to de cada lado deve ,ser 9. Mas se a drea 
fosse 127, por exemplo, o calculo do 
comprimento do lado (ou do numero 
que ao quadrado e 127) torna-se bem 
mais dificil. Os computadorcs possuem 
uma funpao que ajuda neste calculo: a 
fun^ao raiz quadrada. 

Digile PRINT SQR(81) e lecle 
< ENTER > ou < RETURN > — o nu 
mere 9 devera aparecer na tela. Para sa- 
ber quanto vale a raiz quadrada de !27. 
basta repetir a operagao, substituindo o 
81 dentro dos parenteses por 127. 

O computador dispoe do comando 
especiaJ SQR porque a raiz quadrada e 
amplamente empregada. Mas podemos 
utilizar tambem, para o mesmo cSIcu- 
lo, a funi;ao de potenciai;ao. 

Se voce jd usou fragoes como poten- 
cia, deve ter observado que 2t.S (ou dois 
elevado a 1/2) tem o mesmo efeito que 
SQR(2). Experimentc em seu micro 
SQR(8I> e depois Sit. 5. Os resultados 
podem nao ser exatamente os mesmos 
mas. cercamente, serao bem proximos. 

A ffagao 1/3, usada como potencia, 
caicula o inverso do cubo, ou seja, a raiz 
ciibica. A mesma analogia vale para as 
oulras polencias. Embora cada raiz te- 
nha sua propria aplicagao. a raiz qua- 
drada e a mais usada de lodas. 



O comando SQR la/, muiio mais do 
que simplesmente calcular o lado de um 
quadrado do qual se conhece a drea. Al- 
gumas equagoes matematicas tem niime- 
ros ao quadrado e raizes quadradas e. 
nesses casos, pode-se utilizar SQR para 
calcular o resultado no computador. 

O programa que apresentamos a se- 
guir usa uma equagao para calcular o 
tempo de queda de um objeto (despre- 
zando-se a resisiencia do ar). Os fisicos 
chamam essa situagao de "corpo em 
queda livre no vdcuo". O programa 
tambem caicula a velocidade em que o 
objeto se enconlra quando atinge o so- 
lo. Esses calculos envolvem niimeros ao 
quadrado e raizes quadradas porque 
qualquer objeto em queda e sob a in- 
fluencia da gravidade cai cada vez mats 
rApido com o passar do tempo (despre- 
zando-se a resisiencia do ar). Na verda- 
de, esiamos cratando com o quadrado 
do tempo. Mas. antes de maiores deia- 
Ihes, vejamos o programa funcionando. 
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1 CLS 

2 Pit I NT "Qua 1 a all. lira da queda 
■■ ; : INPUT D 

30 IF D<0 THEN 2D 

40 T=f!QR{ {7»D)/9.ei) 

50 U=SyB (2«D-9.81) 

hO T=rNT (T'lOnl /lOO 

70 V=TNT(V*100) /ion 

SO PRTNT-PHINT"Tei!ipo at^ chegar 

";PH[NT"ao solo -";T; "segundoB" 

90 PBlNT:PRINT''VeIacicIade m^xim 

.3":PRlNT"de iitipactn =":VT"metro 

s por sequndo" 

ion PBrNT- (":] .6*INT(2.25"V+.5) 

;■■ Kn/hl " 

JOO LOCATE ^ ,20 :PBtNT"Qua]quer 

Ter la pdrj reinjcvo" 

210 IF TNKSYS-"' THEN 120 

i^JO RUN 



[HE] 



1 D HOME 

20 PRINT "QUAL A ALTITRA DA QUE 

DA ' : : INPUT D 

30 IF D < THEN 20 

40 T = SQB ((Z ■ D) / 9-Sl) 
SQR 12 * D * 9.81 ) 
TNT (T * 100) / 100 
INT (V • 100} / 100 

PRINT "TEMPO ATE CH 
"AO SOLO = ';Tj" S 



50 y - 
fiO T = 

;o V = 

BO PRINT 
EGAB": PR [NT 



E GUN DOS " 

90 PRINT r PRINT "VELOCIDADE M 

AXTMA"- PRINT "DE IHPACTO "iU;" 

METROS POR SEGUNDO" 
100 PBTNT "(-:! .6 - TNT (2.25 

* V + .5) i" KM/H)" 
201) VTAB ZO; PRINT "QUALQUEB T 
ECLA PAHA REINTCIO" 
?ia GET AS: IF AS - '" THEN 21 

2 20 BUN 



^ 
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31 PROGRAMACAO BASIC 31 



10 CI.3 

20 IMPUT -INTRODUZA A DISTANC 

lA DA QIIEDA (METROS) ".D 

.iO IF D<0 THt:N GOTO 20 

40 LET T--=.SOR ((2«D)/9.81) 

50 LET V=SBB 0*D*9.81) 

60 LET T=[NT (T*10t))/10D 

70 LET y-INT (U*-10Q)/100 

BO PRIWT IKyEBSE 1' '"TEMPO P 

ARA CHEHAH AO CHAOi"; INVERSE 

'T; " SEGUNDOS" 
•30 PRINT INVEKSE J ' "UELOCIDA 
DE HAXIMA ATINGIDA: "; INVEHSE 
O'V;" METROS POR SECUNDO" 
100 PRINT "{"ilNT <Z.2G*U4.5); 
' MPH) " 

ZOO PRINT ■ ■ "PpESSiyNE QUAL9UE 
K TECLA fAHA HECOMECAR" 
210 IF INKEYS = "" THEN <;OTQ 

210 
220 GOTO 10 



QQ 



10 CLS 

20 INPUT "DIGITE A DISTANCIA DA 

CUEDA (EPI METROS) ";D 
30 IF D<0 THEN iO 
40 T-SQR( (2*D}/9.81) 
50 V-SQH(2*D*9.81) 
60 T-INT(T"100)/100 
70 V"INT(U«100)/100 
80 PRINT 697, "tempo para chegar 

ao chao:": PRINT T: "SEGUNDOS" 
90 PRINT 8225. "velocidade Baxin 
a alcancada:":PHINT V;"hETROS P 
OH SEGUMDO" 

100 PHIMT • (";INT(2.25*U+.5) i" 
MPH)" 

110 PRIMTiPfllNT-pRESSIONE QUALQ 
UER TECLA PARA RECOMECAH" 
120 IF INKEfS-"" THEN 120 
130 GOTO 10 

Em primeiro lugar, o compuiador 
limpa a tela e pergutita pela altura da 
qua] o objelo vai cair. Caso voce respon- 
dacom urn niimero negative, a pergun- 
ta sera feiia novamente, pois nao se po- 
de calcular raiz quadrada de um niime- 
ro negative- 

Depois computador calcula o tem- 
po que o objelo levari para chegar ao 
chao e a velocidade com que chega. Is- 
so e feilo nas linhas 40 e 50. 

A equaijao usada na linha 40 e utna 
das versoes da "equa^ao de movirnen- 
to" que, depois de rearranjada, lomou 
a forma: 



T - V (2*D)/d 

...ondeTeo tempo necessirio para per- 
correr delerminada dlstancia (nesse ca- 
so, para atingir o solo). D 6 a distSncia 
Kfornecida por voce) e a e a aceleracao 
nmede o quanto a velocidade aumenla 



em cada segundo). 

No programa nao hS nenhuma varia- 
vel a, j^ que seu valor i constante: no 
lugar de a vemos, assim, 9.81. 

A linha 40 resolve a equa^ao, indi- 
cando o tempo que o objeto leva para 
atingir o solo. 

A linha seguinte resolve utna equa^ao 
semelhante, que calcula a velocidade 
do objeto no moraento em que alinge o 
solo. 



V ^ V 2*D''9.B1 

Nessa equagao, em vez de dividir, o 
computador multiplica o niimero 2*D 
pela aceleracao. V significa, no caso, ve- 
locidade. 

Em ambas as equacoes, o sinal v' 
sobre o -2«D*9.81" ou '■2''D39.8I" 
significa raiz quadrada de — e aqui, 
portanto, que usamos a raiz quadrada. 
Uma vez obtida a resposta para uma das 
equa^oes, pode-se muda-la de modo que 
o compuiador calcule a allura da qual 
o objeto foi jogado. 

De um modo geral. a equat;ao se apli- 
ca a qualquer objeto em queda, seja ele 
um tijolo ou um foguete. O que pode 
mudar e o valor da aceleragao. No nos- 
so exemplo. a aceleracao devc-se a gravi- 
dade; por isso, a e ajustado para este va- 
lor A gravidade tern uma aceleracao de 
9.81 metros por segundo por segundo. 
Em outras palavras, para cada segundo 
na queda de um objeto sua velocidade 
aumenta de 9.81 metros por segundo. 
Metros por segundo por segundo tarn- 
bem pode ser escrito como melrOs por se- 
gundo ao quadrado — e e aqui que a 
fun(;ao potencia etitra em cena. 

As equa^oes para esse cdlculo tomam 
a seguinte forma: 



D = 



ou 



a*(t"2) 



D ' U"2/(a''2) 

Tente modificar o programa de mo- 
do que ele calcule respostas para estas 
equatoes. Em vez de altura. poderiamos 
fornecer ao computador a velocidade 
com que desejamos que um objelo atin- 
ja o solo {para a segunda equagao) ou 
o tempo que ele deve levar antes do im- 
pacto. Em ambos os casos, o computa- 
dor calcularia a altura necess^ria para 
satisfazer o dado fornecido. 

A capacidade de resolucao de proble- 
mas desse lipo tern vdrios usos priticos. 
Na maioria deles, por6m, as equai;:oes 
necessitam de um traiamento mais cui- 
dadoso. que leve em conla influencias 
sobre o corpo em movimenio. Alguns 




Por que recebo uma mensagam de er- 
ro quando tento caFcular a raiz quadra- 
da de um nijmero n»gativo? 

Os computadores nao sao capazes 
de calcular a raiz quadrada de um nO- 
mero negative e, na verdade, isio n§o 
exists no universe dos raais lembora 
para certos prop^sitos se atribua unv 
valor irtiagin^rio). 

Elevar um numero ao quadrado sig- 
nifica multiplic5-lo pot ete mesmo, Nu- 
meros positives mulliplicados entre si 
resuiiam num numero positive, mas o 
mesmo acontece com os negatives 
(negative vezes negative resulta num 
numero positivol. Nao existe nenhum 
numero real que, elevado ae quadrado, 
results num numero negative, E 6 da- 
ro que o computador acusa erro quan- 
do Ihe pedimos para f azer o imposslvel. 

Quando usamos SQR num progra- 
ma precisamos estar certos de que o 
numero em questSo serfl sempre posi- 
livo. Caso haja a possibilidade de que 
aparecam numeros negativos (resulta- 
doB de c^lculos anteriores. por exem- 
plo). aconselha-se o uso da fun^ao 
ABS. Essa fun?ao convene um niime- 
ro em seu valor absoluto, ou aeja, reti- 
ra o sinal negativo, se houver. Para 
inclul-la num programa, substitua SQR 
(A) por SQRIABSIAII. onde A repre- 
senta o numero que estS usando. 



exemplos de aplicagao seriam o calculo 
do de&empenho de um carro em testes 
de frenagem e aceleracao ou mesmo a 
reconsliluicao de um acidente automo- 
bilistico. Nesle ultimo caso, poderiamos 
precisar a velocidade em que se encoit- 
trava o veiculo no momento da batida. 
O c^lcuIo e possivel. contanto que co- 
nhecamos os valores corretos para sa- 
tisfazer as equagoes. 

Por meio da funcao de potenciacao 
pode-se calcular muitas outras coisas 
aI6m do desempenho de um carro ou da 
area de uma casa. Ela permite deiermi- 
nar, por exemplo, o quanto uma arvo- 
recresce.ou por que um passaro do ta- 
manho de um elefante nao pode levan- 
tar voo. Num proximo artigo continua- 
remos a e.\plorar o uso das funcoes ma- 
lematicas no computador, inclusive pa- 
ra a obiencao de efeitos gr^ficos. 
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PROGRAMAQAO BASIC 

Programas inteiramente corretos podem apresentar erros 
inesperados. Veja como evitS-los. 

PERIF^RICOS 

J& existem sintetizadores de voz para a maioria dos micros 
domSsticos. Conhe^a os principals tipos e seus efeitos. 

PROGRAMAQAO DE JOGOS 

Digits mais uma rotina para sen jogo de Vinte-e-um: ela 
Itie permitirS apostar e pedir mais cartas. 

PROGRAMACAO BASIC 

Para evitar trabalho desnecess^rio, 
aprenda a combinar programas. 
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